home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / FORM.DEF < prev    next >
Text File  |  1993-03-09  |  10KB  |  201 lines
  1. //---------------------------------------------------------------------------
  2. // FORM.DEF  NPI form object data selectors
  3. // Borland International (c) 1987 - 1991
  4. //
  5. // This include file contains all the selectors required for forms.
  6. // *** DO NOT CHANGE ANY OF THE NUMBERS BELOW ***
  7. //
  8. //---------------------------------------------------------------------------
  9. // NOTE:
  10. // Selectors listed in the following table which are shown to have
  11. // "Value: Number" will sometimes return the null string instead
  12. // of the numeric zero.  For logical compares, null is the same
  13. // as zero, however when emitting the value to the output file
  14. // the null string must be converted to a numeric zero explicitly.
  15. // A user defined function is used in the FORM.COD template program
  16. // called NUL2ZERO() for converting null strings to explicit numeric
  17. // zeros.
  18. //---------------------------------------------------------------------------
  19. {
  20. selectors
  21. #lstoff
  22. //
  23. // ELEMENT selectors (FOREACH loop elements)
  24. //
  25. ELEMENT            1000, // All elements types by row & column
  26. BOX_ELEMENT        1086, // Box element
  27. FLD_ELEMENT        1130, // Field element
  28. TEXT_ELEMENT       1085, // Text element
  29. //
  30. // Selectors common to all elements
  31. //
  32. ELEMENT_TYPE        001, // Element types found in forms are:
  33.                          //     BOX_ELEMENT
  34.                          //     FLD_ELEMENT
  35.                          //     TEXT_ELEMENT
  36.                          // Menu Path: None
  37. ROW_POSITN          225, // Row number of Element
  38.                          // Menu Path: None - Value: Number
  39. COL_POSITN          093, // Column number of Element
  40.                          // Menu Path: None - Value: Number
  41. SYS_FLEN            053, // Element length in layout
  42. SYS_INAME           068, // reserved
  43. SYS_FMT             071, // reserved
  44. SYS_PAGE            090, // reserved
  45. SYS_ROW             092, // reserved
  46. SYS_ATRB            094, // reserved
  47. //
  48. // Frame level selectors - can be accessed at any time
  49. //
  50. NAME                040, // Name of NPI form object
  51.                          // Menu Path: None - Value: String
  52. FRAME_CLASS         181, // Object type (called MENU_TYPE in application.def)
  53.                          // Menu Path: None - Value:11=form, 12=label, 13=report
  54. FRAME_VER           150, // Version #
  55.                          // Menu Path: None - Value: Number
  56. FRAME_FILE_TYPE     151, // File type of object
  57.                          // Menu Path: None - Value: Number
  58. FRAME_PATH          042, // Path of object
  59.                          // Menu Path: None - Value: String
  60. FRAME_NUM_OF_FIELDS 153, // Number of fields
  61.                          // Menu Path: None - Value: Number
  62. //
  63. // Text attribute selectors (FOREACH Text_element x .... NEXT)
  64. //
  65. TEXT_ITEM           095, // Static text data
  66.                          // Menu Path: None - Value: String
  67. //
  68. // Field attribute selectors (FOREACH Fld_element x .... NEXT)
  69. //
  70. FLD_FILENAME        060, // File name (Alias) of current field
  71.                          // Menu Path: None - Value: String
  72. FLD_FIELDNAME       061, // Field name of Element
  73.                          // Menu Path: None - Value: String
  74. FLD_FIELDTYPE       063, // Where the data coming from
  75.                          // Menu Path: None - Value: 0:dBF field 1:calc'ed
  76.                          //                    2:sum 3:predefined 4:memory var
  77. FLD_VALUE_TYPE      064, // Field data type in dBF
  78.                          // Menu Path: None - Value: 67:char 68:date 70:float
  79.                          //                      76:logical 77:memo 78:numeric
  80.                          //  Try chr(fld_value_type) return C:char D:date etc.
  81. FLD_LENGTH          065, // Length of field in dBF
  82.                          // Menu Path: None - Value: Number
  83. FLD_DECIMALS        066, // Number of decimal positions for numeric data
  84.                          // Menu Path: None - Value: Number
  85. FLD_TEMPLATE        074, // Picture template
  86.                          // Menu Path: FMT - Value: String
  87. FLD_PICFUN          075, // Picture functions
  88.                          // Menu Path: FMP - Value: String
  89. FLD_PIC_CHOICE      180, // Picture function sting for enumerated (M) picture
  90.                          // Menu Path: FMP - Value: String
  91. FLD_PIC_SCROLL      183, // Picture function scroll with for (S) picture
  92.                          // Menu Path: FMP - Value: String
  93. FLD_DESCRIPT        076, // Calc & sum description
  94.                          // Menu Path: FMD - Value: String
  95. FLD_EXPRESSION      077, // Calculated field expression
  96.                          // Menu Path: FME - Value: String
  97. FLD_L_BOUND         079, // Lower field range bound
  98.                          // Menu Path: FMES - Value: String
  99. FLD_U_BOUND         080, // Upper field range bound
  100.                          // Menu Path: FMEL - Value: String
  101. FLD_DEF_VAL         081, // Default field value
  102.                          // Menu Path: FMED - Value: String
  103. FLD_ED_COND         082, // Edit if condition
  104.                          // Menu Path: FMEE - Value: String
  105. FLD_OK_COND         083, // Satisfy condition
  106.                          // Menu Path: FMEA - Value: String
  107. FLD_REJ_MSG         084, // Reject message
  108.                          // Menu Path: FMEU - Value: String
  109. FLD_HLP_MSG         099, // Help message
  110.                          // Menu Path: FMEM - Value: String
  111. FLD_MEM_TYP         170, // Memo window type
  112.                          // Menu Path: FMED - Value: 1:Open 2:Marker
  113. FLD_EDITABLE        087, // Say or Get data
  114.                          // Menu Path: FMED - Value: 0:say 1:get 3:REQUIRED RANGE
  115.                          //                          5:REQUIRED VALID 7:REQUIRED RANGE & VALID
  116. FLD_CARRY           088, // Carry value forward
  117.                          // Menu Path: FMEC - Value: 0:no 1:yes
  118. FLD_DISPLAY         171, // Field display
  119.                          // Menu Path: WD - Value: number See udf() at
  120.                          //    bottom of form.cod for values
  121. FLD_STYLE           096, // Menu Path: WD - Value:
  122. //
  123. // Box Attribute Selectors (FOREACH Box_element x .... NEXT)
  124. //
  125. BOX_TYPE            160, // 0:single 1:double 2:special
  126.                          // Menu Path: LB - Value: 0:single 1:double 2:special
  127. BOX_SPECIAL_CHAR    161, // Box character
  128.                          // Menu Path: LBU - Value: Number
  129. BOX_LEFT            162, // Left column for box
  130.                          // Menu Path: None - Value: Number
  131. BOX_TOP             163, // Top row of box
  132.                          // Menu Path: None - Value: Number
  133. BOX_WIDTH           164, // Box width in columns
  134.                          // Menu Path: None - Value: Number
  135. BOX_HEIGHT          165, // Box height in rows
  136.                          // Menu Path: None - Value: Number
  137. #lston
  138. ;
  139. //
  140. // Values returned by Fld_Fieldtype
  141. //
  142. enum dbf = 0,    // Field from a database
  143.      calc,       // Calculated expression
  144.      sum,        // Summary ie. Average, Count, etc.
  145.      predef,     // Predefined ie. Date, Page, etc.
  146.      memvar;     // Memvar reference
  147.  
  148. enum mfo_release = 0,
  149.      mfo_public,
  150.      mfo_store,
  151.      mfo_replace,
  152.      mfo_repm2t,
  153.      mfo_rept2m;
  154.  
  155. enum  on_key_help    = "F1",      // Help procedure key
  156.       on_key_recalc  = "F5",      // Recalc expressions - not used yet
  157.       on_key_cut     = "F6",      // Cut data to variable
  158.       on_key_edpaste = "Ctrl-F5", // Edit Paste data
  159.       on_key_move    = "F7",      // Move active window
  160.       on_key_paste   = "F8",      // Paste Cut Data
  161.       on_key_zoom    = "F9",      // Zoom to Form
  162.       on_key_browse  = "Ctrl-F3"   // Move to Browse Table
  163. ;
  164. //
  165. // Enum string constants for international translation
  166. //
  167. enum  wrong_class    = "Can't use FORM.GEN on non-form objects.  ",
  168.       form_empty     = "Form design was empty.  ",
  169.       no_scb_file    = "Can't find extended design file - ",
  170.       to_many_windows= "Window count exceeds maximum of 20!",
  171.       multi_file_err = "is not a multi-table program - Overwrite (Y/N)?",
  172.       multi_file_log = "was not created by FORM.GEN and you chose not to overwrite it.",
  173.       multi_file_msg = "Generating multi-table program: ",
  174.       multi_file_del = "This record is linked to other records and may not be deleted.",
  175.       multi_file_det = "Error with Detail Region definition number ",
  176.       multi_file_fld = "Error with Detail Region - no fields ",
  177.       multi_file_opn = "[Opening data files.]",
  178.       multi_file_siz = "Number of detail lines do not match region size, region: ",
  179.       multi_file_mas = "Master database link field is not on form: ",
  180.       one_moment_msg = "One moment please...",
  181.       bad_pick       = "Picklist coordinates exceed column 79 - move field left",
  182.       bad_shadow     = "Shadow coordinates exceed column 79 - move field left",
  183.       dbtrap_err     = "SET DBTRAP OFF to use this FORM.",
  184.       proc_err       = "Procedure library",
  185.       tag_err        = "ORDER TAG not found:",
  186.       var_err        = "Variable not found:",
  187.       file_err       = "not found!",
  188.       can_not_run    = "Can't run a procedure file!",
  189.       select_msg1    = "[Press the Enter key to select or the Esc key to cancel]",
  190.       select_msg2    = "[   Pan Left:F3   Pan Right:F4   Move Window:" +
  191.                         on_key_move +"]",
  192.       get_ext_comment= "Form extensions added to this GET",
  193.       dup_entry      = "This entry is a duplicate!",
  194.       help_msg1   = "Scroll thru Help: Ctrl-Home   Exit Viewing Help: Esc   ",
  195.       help_msg2   = "See Original Screen: F3", 
  196.       help_err2   = "There is no help defined for this field:", 
  197.       help_err1   = "Help file no longer exists: "
  198. ;
  199.  
  200. }
  201.